clear

*set working directory
cd "/Users/bnyhan/Dropbox/Experiments in Politics spring 2016 class study"


*********
*STUDY 1*
*********

use "study1-replication.dta", clear

*Table 1: Effects of fact-check type on politician accuracy and favorability ratings
reg accuracy_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A
lincom mc_sum-mc_ind 

reg accuracy_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C 
lincom reid_sum-reid_ind 

reg favorability_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B
lincom mc_sum-mc_ind

reg favorability_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store D
lincom reid_sum-reid_ind 

estout A B C D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Figure 2: Perceived accuracy and candidate favorability by fact-check type
egen FCgroupnum=group(FCgroup)

gen candgroup=""
replace candgroup="McConnell" if mc_ind==1 | mc_sum==1 | mc_control==1
replace candgroup="Reid" if reid_ind==1 | reid_sum==1 | reid_control==1

gen accuracy=.
replace accuracy=accuracy_mcconnell if mc_ind==1 | mc_sum==1 | mc_control==1
replace accuracy=accuracy_reid if reid_ind==1 | reid_sum==1 | reid_control==1

gen favorability=.
replace favorability=favorability_mcconnell if mc_ind==1 | mc_sum==1 | mc_control==1
replace favorability=favorability_reid if reid_ind==1 | reid_sum==1 | reid_control==1
egen candgroupnum=group(candgroup)

label def fclab 1 "Control" 2 "Individual" 3 "Summary"
label val FCgroupnum fclab
label def candlab 1 "McConnell" 2 "Reid"
label val candgroupnum candlab

cibar accuracy,  over1(FCgroupnum) over2(candgroupnum) bargap(25) gap(150) barcolor(sand gs15 teal) ciopts(lcolor(black)) graphopts(legend(rows(1)) graphregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) yline(2 3 4 5, lstyle(yxline) lcolor(gray)) yline(1, lstyle(foreground)) plotregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) ytitle("") ylabel(5 "All of the time" 4 "Most of the time" 3 "About half the time" 2 "Rarely" 1 "Never",angle(0) labsize(*.8)) yscale(r(1 3.1))) 
graph export "belief-ci_figure2.eps", replace
cibar favorability,  over1(FCgroupnum) over2(candgroupnum) bargap(25) gap(150) barcolor(sand gs15 teal) ciopts(lcolor(black)) graphopts(legend(rows(1)) graphregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) yline(2 3 4 5, lstyle(yxline) lcolor(gray)) yline(1, lstyle(foreground)) plotregion(fcolor(white) lcolor(white) ifcolor(white) ilcolor(white)) ytitle("") ylabel(5 "Very favorable" 4 "Somewhat favorable" 3 `" "Neither favorable"  "nor unfavorable" "' 2 "Somewhat unfavorable" 1 "Very unfavorable",angle(0) labsize(*.8)) yscale(r(1 5)))
graph export "fav-ci_figure2.eps", replace

*Table 2: Effects of fact-check type by party
gen mc_indXdem=mc_ind*dem
gen mc_sumXdem=mc_sum*dem
gen reid_indXdem=reid_ind*dem
gen reid_sumXdem=reid_sum*dem

gen mc_indXgop=mc_ind*gop
gen mc_sumXgop=mc_sum*gop
gen reid_indXgop=reid_ind*gop
gen reid_sumXgop=reid_sum*gop

reg accuracy_mcconnell mc_ind mc_indXdem mc_indXgop dem gop mc_sum mc_sumXdem mc_sumXgop if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg favorability_mcconnell mc_ind mc_indXdem mc_indXgop dem gop mc_sum mc_sumXdem mc_sumXgop if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg accuracy_reid reid_ind reid_indXdem reid_indXgop dem gop reid_sum reid_sumXdem reid_sumXgop if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C

reg favorability_reid reid_ind reid_indXdem reid_indXgop dem gop reid_sum reid_sumXdem reid_sumXgop if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

estout A B C D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C1: Mean demographic values by treatment group
tab condition female, row
tab condition white, row
tab condition under35, row
tab condition college, row
tab condition party3, row

*calculate chi square p values
tab condition female, chi
tab condition white, chi
tab condition under35, chi
tab condition college, chi
tab condition democrat, chi
tab condition independent, chi
tab condition republican, chi

*Table C2: Effects of fact-check type on politician accuracy and favorability ratings (Study 1)
oprobit accuracy_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A
lincom mc_sum-mc_ind 

oprobit accuracy_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C 
lincom reid_sum-reid_ind 

oprobit favorability_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B
lincom mc_sum-mc_ind 

oprobit favorability_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store D
lincom reid_sum-reid_ind 

estout A B C D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C3: Political knowledge interaction models (Study 1)
gen mc_indXpolknow=mc_ind*polknow
gen mc_sumXpolknow=mc_sum*polknow
gen reid_indXpolknow=reid_ind*polknow
gen reid_sumXpolknow=reid_sum*polknow

reg accuracy_mcconnell mc_ind mc_indXpolknow polknow mc_sum mc_sumXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg favorability_mcconnell mc_ind mc_indXpolknow polknow mc_sum mc_sumXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg accuracy_reid reid_ind reid_indXpolknow polknow reid_sum reid_sumXpolknow  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C

reg favorability_reid reid_ind reid_indXpolknow polknow reid_sum reid_sumXpolknow  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

estout A B C D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.05 ** 0.01) 

*Table C4: Knowledge/party interaction models (Study 1)
gen demXpolknow=dem*polknow
gen gopXpolknow=gop*polknow

gen mc_indXdemXpolknow = mc_ind*dem*polknow
gen mc_sumXdemXpolknow = mc_sum*dem*polknow

gen mc_indXgopXpolknow = mc_ind*gop*polknow
gen mc_sumXgopXpolknow = mc_sum*gop*polknow

reg accuracy_mcconnell mc_ind mc_sum dem gop polknow demXpolknow gopXpolknow mc_indXdem mc_indXgop mc_indXpolknow mc_indXdemXpolknow mc_indXgopXpolknow mc_sumXdem mc_sumXgop mc_sumXpolknow mc_sumXdemXpolknow mc_sumXgopXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A1 

reg favorability_mcconnell mc_ind mc_sum dem gop polknow demXpolknow gopXpolknow mc_indXdem mc_indXgop mc_indXpolknow mc_indXdemXpolknow mc_indXgopXpolknow mc_sumXdem mc_sumXgop mc_sumXpolknow mc_sumXdemXpolknow mc_sumXgopXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store C1

gen reid_indXdemXpolknow = reid_ind*dem*polknow
gen reid_sumXdemXpolknow = reid_sum*dem*polknow

gen reid_indXgopXpolknow = reid_ind*gop*polknow
gen reid_sumXgopXpolknow = reid_sum*gop*polknow

reg accuracy_reid reid_ind reid_sum dem gop polknow demXpolknow gopXpolknow reid_indXdem reid_indXgop reid_indXpolknow reid_indXdemXpolknow reid_indXgopXpolknow reid_sumXdem reid_sumXgop reid_sumXpolknow reid_sumXdemXpolknow reid_sumXgopXpolknow if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D1

reg favorability_reid reid_ind reid_sum dem gop polknow demXpolknow gopXpolknow reid_indXdem reid_indXgop reid_indXpolknow reid_indXdemXpolknow reid_indXgopXpolknow reid_sumXdem reid_sumXgop reid_sumXpolknow reid_sumXdemXpolknow reid_sumXgopXpolknow if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F1

estout A1 C1 D1 F1, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C5: Education interaction models (Study 1)
gen mc_indXcollege=mc_ind*college
gen mc_sumXcollege=mc_sum*college
gen reid_indXcollege=reid_ind*college
gen reid_sumXcollege=reid_sum*college

reg accuracy_mcconnell mc_ind mc_indXcollege college mc_sum mc_sumXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg favorability_mcconnell mc_ind mc_indXcollege college mc_sum mc_sumXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg accuracy_reid reid_ind reid_indXcollege college reid_sum reid_sumXcollege  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C

reg favorability_reid reid_ind reid_indXcollege college reid_sum reid_sumXcollege  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

estout A B C D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C6: Education/party interaction models (Study 1)
gen mc_indXdemXcollege = mc_ind*dem*college
gen mc_sumXdemXcollege = mc_sum*dem*college

gen demXcollege=dem*college
gen gopXcollege=gop*college

gen mc_indXgopXcollege = mc_ind*gop*college
gen mc_sumXgopXcollege = mc_sum*gop*college

reg accuracy_mcconnell mc_ind mc_sum dem gop college demXcollege gopXcollege mc_indXdem mc_indXgop mc_indXcollege mc_indXdemXcollege mc_indXgopXcollege mc_sumXdem mc_sumXgop mc_sumXcollege mc_sumXdemXcollege mc_sumXgopXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A

reg favorability_mcconnell mc_ind mc_sum dem gop college demXcollege gopXcollege mc_indXdem mc_indXgop mc_indXcollege mc_indXdemXcollege mc_indXgopXcollege mc_sumXdem mc_sumXgop mc_sumXcollege mc_sumXdemXcollege mc_sumXgopXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store C

gen reid_indXdemXcollege = reid_ind*dem*college
gen reid_sumXdemXcollege = reid_sum*dem*college

gen reid_indXgopXcollege = reid_ind*gop*college
gen reid_sumXgopXcollege = reid_sum*gop*college

reg accuracy_reid reid_ind reid_sum dem gop college demXcollege gopXcollege reid_indXdem reid_indXgop reid_indXcollege reid_indXdemXcollege reid_indXgopXcollege reid_sumXdem reid_sumXgop reid_sumXcollege reid_sumXdemXcollege reid_sumXgopXcollege if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg favorability_reid reid_ind reid_sum dem gop college demXcollege gopXcollege reid_indXdem reid_indXgop reid_indXcollege reid_indXdemXcollege reid_indXgopXcollege reid_sumXdem reid_sumXgop reid_sumXcollege reid_sumXdemXcollege reid_sumXgopXcollege if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store F

estout A C D F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C7: Treatment effects on views of fact-checking (Study 1)
reg favorability_factcheck mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A
lincom mc_sum-mc_ind 

reg favorability_factcheck reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E
lincom reid_sum-reid_ind 

reg qty_factcheck mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B
lincom mc_sum-mc_ind 

reg qty_factcheck reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F
lincom reid_sum-reid_ind 

reg facts_straight_fc mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C
lincom mc_sum-mc_ind 

reg facts_straight_fc reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store G
lincom reid_sum-reid_ind 

reg fairness_fact mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store D
lincom mc_sum-mc_ind 

reg fairness_fact reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store H
lincom reid_sum-reid_ind 

estout A B C D E F G H, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 


*********
*STUDY 2*
*********

use "study2-replication.dta", clear

*Table B1: Effects of fact-check type on politician accuracy and favorability ratings
*accuracy effects
reg accuracy_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A
lincom mc_sum-mc_ind 

reg accuracy_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C 
lincom reid_sum-reid_ind 

*favorability effects
reg favorability_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B
lincom mc_sum-mc_ind 

reg favorability_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store D
lincom reid_sum-reid_ind 

*accuracy effects on second statement
reg accuracy_mcconnell_2 mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store E
lincom mc_sum-mc_ind 

reg accuracy_reid_2 reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F 
lincom reid_sum-reid_ind 

estout A E B C F D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C1: Mean demographic values by treatment group
tab condition female, row
tab condition white, row
tab condition under35, row
tab condition college, row
tab condition party3, row

*calculate chi square p values
tab condition female, chi
tab condition white, chi
tab condition under35, chi
tab condition college, chi
tab condition democrat, chi
tab condition independent, chi
tab condition republican, chi

*Table C8: Effects of fact-check type on politician accuracy and favorability ratings (Study 2)
*accuracy effects
oprobit accuracy_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A

lincom mc_sum-mc_ind 

oprobit accuracy_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C 

lincom reid_sum-reid_ind 

*favorability effects
oprobit favorability_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

lincom mc_sum-mc_ind 

oprobit favorability_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store D

lincom reid_sum-reid_ind 

*accuracy effects on second statement
oprobit accuracy_mcconnell_2 mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store E
lincom mc_sum-mc_ind 

oprobit accuracy_reid_2 reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F 
lincom reid_sum-reid_ind 

estout A E B C F D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01)

*Table C9: Effects of fact-check type by party (Study 2)
gen mc_indXdem=mc_ind*dem
gen mc_sumXdem=mc_sum*dem
gen reid_indXdem=reid_ind*dem
gen reid_sumXdem=reid_sum*dem

gen mc_indXgop=mc_ind*gop
gen mc_sumXgop=mc_sum*gop
gen reid_indXgop=reid_ind*gop
gen reid_sumXgop=reid_sum*gop

reg accuracy_mcconnell mc_ind mc_indXdem mc_indXgop dem gop mc_sum mc_sumXdem mc_sumXgop if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg accuracy_mcconnell_2 mc_ind mc_indXdem mc_indXgop dem gop mc_sum mc_sumXdem mc_sumXgop if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg favorability_mcconnell mc_ind mc_indXdem mc_indXgop dem gop mc_sum mc_sumXdem mc_sumXgop if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg accuracy_reid reid_ind reid_indXdem reid_indXgop dem gop reid_sum reid_sumXdem reid_sumXgop if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg accuracy_reid_2 reid_ind reid_indXdem reid_indXgop dem gop reid_sum reid_sumXdem reid_sumXgop if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

reg favorability_reid reid_ind reid_indXdem reid_indXgop dem gop reid_sum reid_sumXdem reid_sumXgop if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C10: Political knowledge interaction models (Study 2)
gen mc_indXpolknow=mc_ind*polknow
gen mc_sumXpolknow=mc_sum*polknow
gen reid_indXpolknow=reid_ind*polknow
gen reid_sumXpolknow=reid_sum*polknow

reg accuracy_mcconnell mc_ind mc_indXpolknow polknow mc_sum mc_sumXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg accuracy_mcconnell_2 mc_ind mc_indXpolknow polknow mc_sum mc_sumXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg favorability_mcconnell mc_ind mc_indXpolknow polknow mc_sum mc_sumXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg accuracy_reid reid_ind reid_indXpolknow polknow reid_sum reid_sumXpolknow  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg accuracy_reid_2 reid_ind reid_indXpolknow polknow reid_sum reid_sumXpolknow  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

reg favorability_reid reid_ind reid_indXpolknow polknow reid_sum reid_sumXpolknow  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.05 ** 0.01) 

*Table C11: Knowledge/party interaction models (Study 2)
gen demXpolknow=dem*polknow
gen gopXpolknow=gop*polknow

gen mc_indXdemXpolknow = mc_ind*dem*polknow
gen mc_sumXdemXpolknow = mc_sum*dem*polknow

gen mc_indXgopXpolknow = mc_ind*gop*polknow
gen mc_sumXgopXpolknow = mc_sum*gop*polknow

reg accuracy_mcconnell mc_ind mc_sum dem gop polknow demXpolknow gopXpolknow mc_indXdem mc_indXgop mc_indXpolknow mc_indXdemXpolknow mc_indXgopXpolknow mc_sumXdem mc_sumXgop mc_sumXpolknow mc_sumXdemXpolknow mc_sumXgopXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A1 

reg favorability_mcconnell mc_ind mc_sum dem gop polknow demXpolknow gopXpolknow mc_indXdem mc_indXgop mc_indXpolknow mc_indXdemXpolknow mc_indXgopXpolknow mc_sumXdem mc_sumXgop mc_sumXpolknow mc_sumXdemXpolknow mc_sumXgopXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store C1

reg accuracy_mcconnell_2 mc_ind mc_sum dem gop polknow demXpolknow gopXpolknow mc_indXdem mc_indXgop mc_indXpolknow mc_indXdemXpolknow mc_indXgopXpolknow mc_sumXdem mc_sumXgop mc_sumXpolknow mc_sumXdemXpolknow mc_sumXgopXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store B1

gen reid_indXdemXpolknow = reid_ind*dem*polknow
gen reid_sumXdemXpolknow = reid_sum*dem*polknow

gen reid_indXgopXpolknow = reid_ind*gop*polknow
gen reid_sumXgopXpolknow = reid_sum*gop*polknow

reg accuracy_reid reid_ind reid_sum dem gop polknow demXpolknow gopXpolknow reid_indXdem reid_indXgop reid_indXpolknow reid_indXdemXpolknow reid_indXgopXpolknow reid_sumXdem reid_sumXgop reid_sumXpolknow reid_sumXdemXpolknow reid_sumXgopXpolknow if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store D1

reg favorability_reid reid_ind reid_sum dem gop polknow demXpolknow gopXpolknow reid_indXdem reid_indXgop reid_indXpolknow reid_indXdemXpolknow reid_indXgopXpolknow reid_sumXdem reid_sumXgop reid_sumXpolknow reid_sumXdemXpolknow reid_sumXgopXpolknow if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F1

reg accuracy_reid_2 reid_ind reid_sum dem gop polknow demXpolknow gopXpolknow reid_indXdem reid_indXgop reid_indXpolknow reid_indXdemXpolknow reid_indXgopXpolknow reid_sumXdem reid_sumXgop reid_sumXpolknow reid_sumXdemXpolknow reid_sumXgopXpolknow if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E1

estout A1 B1 C1 D1 E1 F1, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C12: Education interaction models (Study 2)
gen mc_indXcollege=mc_ind*college
gen mc_sumXcollege=mc_sum*college
gen reid_indXcollege=reid_ind*college
gen reid_sumXcollege=reid_sum*college

reg accuracy_mcconnell mc_ind mc_indXcollege college mc_sum mc_sumXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg accuracy_mcconnell_2 mc_ind mc_indXcollege college mc_sum mc_sumXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg favorability_mcconnell mc_ind mc_indXcollege college mc_sum mc_sumXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg accuracy_reid reid_ind reid_indXcollege college reid_sum reid_sumXcollege  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg accuracy_reid_2 reid_ind reid_indXcollege college reid_sum reid_sumXcollege  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

reg favorability_reid reid_ind reid_indXcollege college reid_sum reid_sumXcollege  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C13: Education/party interaction models (Study 2)
gen mc_indXdemXcollege = mc_ind*dem*college
gen mc_sumXdemXcollege = mc_sum*dem*college

gen demXcollege=dem*college
gen gopXcollege=gop*college

gen mc_indXgopXcollege = mc_ind*gop*college
gen mc_sumXgopXcollege = mc_sum*gop*college

reg accuracy_mcconnell mc_ind mc_sum dem gop college demXcollege gopXcollege mc_indXdem mc_indXgop mc_indXcollege mc_indXdemXcollege mc_indXgopXcollege mc_sumXdem mc_sumXgop mc_sumXcollege mc_sumXdemXcollege mc_sumXgopXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A

reg favorability_mcconnell mc_ind mc_sum dem gop college demXcollege gopXcollege mc_indXdem mc_indXgop mc_indXcollege mc_indXdemXcollege mc_indXgopXcollege mc_sumXdem mc_sumXgop mc_sumXcollege mc_sumXdemXcollege mc_sumXgopXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store C

reg accuracy_mcconnell_2 mc_ind mc_sum dem gop college demXcollege gopXcollege mc_indXdem mc_indXgop mc_indXcollege mc_indXdemXcollege mc_indXgopXcollege mc_sumXdem mc_sumXgop mc_sumXcollege mc_sumXdemXcollege mc_sumXgopXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store B

gen reid_indXdemXcollege = reid_ind*dem*college
gen reid_sumXdemXcollege = reid_sum*dem*college

gen reid_indXgopXcollege = reid_ind*gop*college
gen reid_sumXgopXcollege = reid_sum*gop*college

reg accuracy_reid reid_ind reid_sum dem gop college demXcollege gopXcollege reid_indXdem reid_indXgop reid_indXcollege reid_indXdemXcollege reid_indXgopXcollege reid_sumXdem reid_sumXgop reid_sumXcollege reid_sumXdemXcollege reid_sumXgopXcollege if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg favorability_reid reid_ind reid_sum dem gop college demXcollege gopXcollege reid_indXdem reid_indXgop reid_indXcollege reid_indXdemXcollege reid_indXgopXcollege reid_sumXdem reid_sumXgop reid_sumXcollege reid_sumXdemXcollege reid_sumXgopXcollege if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store F

reg accuracy_reid_2 reid_ind reid_sum dem gop college demXcollege gopXcollege reid_indXdem reid_indXgop reid_indXcollege reid_indXdemXcollege reid_indXgopXcollege reid_sumXdem reid_sumXgop reid_sumXcollege reid_sumXdemXcollege reid_sumXgopXcollege if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C14: Effects on views of fact-checking (Study 2)
reg favorability_factcheck mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg favorability_factcheck reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

reg qty_factcheck mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg qty_factcheck reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

reg facts_straight_fc mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg facts_straight_fc reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store G

reg fairness_fact mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store D

reg fairness_fact reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store H

estout A B C D E F G H, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 


*********
*STUDY 3*
*********

use "study3-replication.dta", clear

*Table B2: Effects of fact-check type on politician accuracy and favorability ratings
*accuracy effects
reg accuracy_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A
lincom mc_sum-mc_ind 

reg accuracy_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C 
lincom reid_sum-reid_ind 

*favorability effects
reg favorability_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B
lincom mc_sum-mc_ind 

reg favorability_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store D
lincom reid_sum-reid_ind 

*accuracy effects on second statement
reg accuracy_mcconnell_2 mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store E
lincom mc_sum-mc_ind

reg accuracy_reid_2 reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F 
lincom reid_sum-reid_ind 

estout A E B C F D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C1: Mean demographic values by treatment group
tab condition female, row
tab condition white, row
tab condition under35, row
tab condition college, row
tab condition party3, row

*calculate chi square p values
tab condition female, chi
tab condition white, chi
tab condition under35, chi
tab condition college, chi
tab condition democrat, chi
tab condition independent, chi
tab condition republican, chi

*Table C15: Effects of fact-check type on politician accuracy and favorability ratings (Study 3)
*accuracy effects
oprobit accuracy_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store A
lincom mc_sum-mc_ind 

oprobit accuracy_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store C 
lincom reid_sum-reid_ind 

*favorability effects
oprobit favorability_mcconnell mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B
lincom mc_sum-mc_ind 

oprobit favorability_reid reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store D
lincom reid_sum-reid_ind 

*accuracy effects on second statement
oprobit accuracy_mcconnell_2 mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store E
lincom mc_sum-mc_ind 

oprobit accuracy_reid_2 reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F 
lincom reid_sum-reid_ind 

estout A E B C F D, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C16: Effects of fact-check type by party (Study 3)
gen mc_indXdem=mc_ind*dem
gen mc_sumXdem=mc_sum*dem
gen reid_indXdem=reid_ind*dem
gen reid_sumXdem=reid_sum*dem

gen mc_indXgop=mc_ind*gop
gen mc_sumXgop=mc_sum*gop
gen reid_indXgop=reid_ind*gop
gen reid_sumXgop=reid_sum*gop

reg accuracy_mcconnell mc_ind mc_indXdem mc_indXgop dem gop mc_sum mc_sumXdem mc_sumXgop if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg accuracy_mcconnell_2 mc_ind mc_indXdem mc_indXgop dem gop mc_sum mc_sumXdem mc_sumXgop if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg favorability_mcconnell mc_ind mc_indXdem mc_indXgop dem gop mc_sum mc_sumXdem mc_sumXgop if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg accuracy_reid reid_ind reid_indXdem reid_indXgop dem gop reid_sum reid_sumXdem reid_sumXgop if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg accuracy_reid_2 reid_ind reid_indXdem reid_indXgop dem gop reid_sum reid_sumXdem reid_sumXgop if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

reg favorability_reid reid_ind reid_indXdem reid_indXgop dem gop reid_sum reid_sumXdem reid_sumXgop if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C17: Political knowledge interaction models (Study 3)
gen mc_indXpolknow=mc_ind*polknow
gen mc_sumXpolknow=mc_sum*polknow
gen reid_indXpolknow=reid_ind*polknow
gen reid_sumXpolknow=reid_sum*polknow

reg accuracy_mcconnell mc_ind mc_indXpolknow polknow mc_sum mc_sumXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg accuracy_mcconnell_2 mc_ind mc_indXpolknow polknow mc_sum mc_sumXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg favorability_mcconnell mc_ind mc_indXpolknow polknow mc_sum mc_sumXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg accuracy_reid reid_ind reid_indXpolknow polknow reid_sum reid_sumXpolknow  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg accuracy_reid_2 reid_ind reid_indXpolknow polknow reid_sum reid_sumXpolknow  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

reg favorability_reid reid_ind reid_indXpolknow polknow reid_sum reid_sumXpolknow  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f) labels("R$^{2}$" "N")) starlevels(* 0.05 ** 0.01) 

*Table C18: Knowledge/party interaction models (Study 3)
gen demXpolknow=dem*polknow
gen gopXpolknow=gop*polknow

gen mc_indXdemXpolknow = mc_ind*dem*polknow
gen mc_sumXdemXpolknow = mc_sum*dem*polknow

gen mc_indXgopXpolknow = mc_ind*gop*polknow
gen mc_sumXgopXpolknow = mc_sum*gop*polknow

reg accuracy_mcconnell mc_ind mc_sum dem gop polknow demXpolknow gopXpolknow mc_indXdem mc_indXgop mc_indXpolknow mc_indXdemXpolknow mc_indXgopXpolknow mc_sumXdem mc_sumXgop mc_sumXpolknow mc_sumXdemXpolknow mc_sumXgopXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A1 

reg favorability_mcconnell mc_ind mc_sum dem gop polknow demXpolknow gopXpolknow mc_indXdem mc_indXgop mc_indXpolknow mc_indXdemXpolknow mc_indXgopXpolknow mc_sumXdem mc_sumXgop mc_sumXpolknow mc_sumXdemXpolknow mc_sumXgopXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store C1

reg accuracy_mcconnell_2 mc_ind mc_sum dem gop polknow demXpolknow gopXpolknow mc_indXdem mc_indXgop mc_indXpolknow mc_indXdemXpolknow mc_indXgopXpolknow mc_sumXdem mc_sumXgop mc_sumXpolknow mc_sumXdemXpolknow mc_sumXgopXpolknow if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store B1

gen reid_indXdemXpolknow = reid_ind*dem*polknow
gen reid_sumXdemXpolknow = reid_sum*dem*polknow

gen reid_indXgopXpolknow = reid_ind*gop*polknow
gen reid_sumXgopXpolknow = reid_sum*gop*polknow

reg accuracy_reid reid_ind reid_sum dem gop polknow demXpolknow gopXpolknow reid_indXdem reid_indXgop reid_indXpolknow reid_indXdemXpolknow reid_indXgopXpolknow reid_sumXdem reid_sumXgop reid_sumXpolknow reid_sumXdemXpolknow reid_sumXgopXpolknow if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D1

reg favorability_reid reid_ind reid_sum dem gop polknow demXpolknow gopXpolknow reid_indXdem reid_indXgop reid_indXpolknow reid_indXdemXpolknow reid_indXgopXpolknow reid_sumXdem reid_sumXgop reid_sumXpolknow reid_sumXdemXpolknow reid_sumXgopXpolknow if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F1

reg accuracy_reid_2 reid_ind reid_sum dem gop polknow demXpolknow gopXpolknow reid_indXdem reid_indXgop reid_indXpolknow reid_indXdemXpolknow reid_indXgopXpolknow reid_sumXdem reid_sumXgop reid_sumXpolknow reid_sumXdemXpolknow reid_sumXgopXpolknow if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E1

estout A1 B1 C1 D1 E1 F1, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C19: Education interaction models (Study 3)
gen mc_indXcollege=mc_ind*college
gen mc_sumXcollege=mc_sum*college
gen reid_indXcollege=reid_ind*college
gen reid_sumXcollege=reid_sum*college

reg accuracy_mcconnell mc_ind mc_indXcollege college mc_sum mc_sumXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg accuracy_mcconnell_2 mc_ind mc_indXcollege college mc_sum mc_sumXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg favorability_mcconnell mc_ind mc_indXcollege college mc_sum mc_sumXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg accuracy_reid reid_ind reid_indXcollege college reid_sum reid_sumXcollege  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg accuracy_reid_2 reid_ind reid_indXcollege college reid_sum reid_sumXcollege  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

reg favorability_reid reid_ind reid_indXcollege college reid_sum reid_sumXcollege  if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C20: Education/party interaction models (Study 3)
gen mc_indXdemXcollege = mc_ind*dem*college
gen mc_sumXdemXcollege = mc_sum*dem*college

gen demXcollege=dem*college
gen gopXcollege=gop*college

gen mc_indXgopXcollege = mc_ind*gop*college
gen mc_sumXgopXcollege = mc_sum*gop*college

reg accuracy_mcconnell mc_ind mc_sum dem gop college demXcollege gopXcollege mc_indXdem mc_indXgop mc_indXcollege mc_indXdemXcollege mc_indXgopXcollege mc_sumXdem mc_sumXgop mc_sumXcollege mc_sumXdemXcollege mc_sumXgopXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg favorability_mcconnell mc_ind mc_sum dem gop college demXcollege gopXcollege mc_indXdem mc_indXgop mc_indXcollege mc_indXdemXcollege mc_indXgopXcollege mc_sumXdem mc_sumXgop mc_sumXcollege mc_sumXdemXcollege mc_sumXgopXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg accuracy_mcconnell_2 mc_ind mc_sum dem gop college demXcollege gopXcollege mc_indXdem mc_indXgop mc_indXcollege mc_indXdemXcollege mc_indXgopXcollege mc_sumXdem mc_sumXgop mc_sumXcollege mc_sumXdemXcollege mc_sumXgopXcollege if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store B

gen reid_indXdemXcollege = reid_ind*dem*college
gen reid_sumXdemXcollege = reid_sum*dem*college

gen reid_indXgopXcollege = reid_ind*gop*college
gen reid_sumXgopXcollege = reid_sum*gop*college

reg accuracy_reid reid_ind reid_sum dem gop college demXcollege gopXcollege reid_indXdem reid_indXgop reid_indXcollege reid_indXdemXcollege reid_indXgopXcollege reid_sumXdem reid_sumXgop reid_sumXcollege reid_sumXdemXcollege reid_sumXgopXcollege if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store D

reg favorability_reid reid_ind reid_sum dem gop college demXcollege gopXcollege reid_indXdem reid_indXgop reid_indXcollege reid_indXdemXcollege reid_indXgopXcollege reid_sumXdem reid_sumXgop reid_sumXcollege reid_sumXdemXcollege reid_sumXgopXcollege if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

reg accuracy_reid_2 reid_ind reid_sum dem gop college demXcollege gopXcollege reid_indXdem reid_indXgop reid_indXcollege reid_indXdemXcollege reid_indXgopXcollege reid_sumXdem reid_sumXgop reid_sumXcollege reid_sumXdemXcollege reid_sumXgopXcollege if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

estout A B C D E F, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 

*Table C21: Effects on views of fact-checking (Study 3)
reg favorability_factcheck mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store A

reg favorability_factcheck reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store E

reg qty_factcheck mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store B

reg qty_factcheck reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store F

reg facts_straight_fc mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust
est store C

reg facts_straight_fc reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust
est store G

reg fairness_fact mc_ind mc_sum if mc_ind==1 | mc_sum==1 | mc_control==1, robust 
est store D

reg fairness_fact reid_ind reid_sum if reid_ind==1 | reid_sum==1 | reid_control==1, robust 
est store H

estout A B C D E F G H, label style(tex) replace varwidth(25) collabels("") cells(b(star fmt(%9.2f)) se(par fmt(%9.2f))) stats(r2 N, fmt(%9.2f %9.0f)) starlevels(* 0.05 ** 0.01) 
